home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / netz / internet-set.v4.0 / amitcp-4.0 / bin / modem.rexx < prev    next >
OS/2 REXX Batch file  |  1996-07-23  |  892b  |  47 lines
  1. /* Get info for variables from user */
  2.  
  3. Say ''
  4. Say 'This will change your Modem settings as mentioned in'
  5. Say 'the Modem.Help file' 
  6. Say ''
  7. Say 'What do you want to do ?  (C) = Change  (R) = Restore Defaults' 
  8. Say ''
  9. Say 'Enter C or R'
  10. Say''
  11. Pull SetMod
  12.  
  13. If SetMod = 'C' Then 
  14.     Call YourSet
  15.  
  16. Else  
  17.     ModSet = 'AT&F&D0L1'
  18.  
  19. EndIF
  20.  
  21. Say '' 
  22. Say 'You chose ('||SetMod||') ''and your AT string is now: 'ModSet    
  23. Say ''                          
  24. Say 'Press Enter to Exit'
  25. Pull Answer
  26. Say ''
  27. Say 'All done'
  28.  
  29. /*  */
  30.  
  31. If Open(1,'AmiTCP:bin/modem.dat','Write') Then   /* Opens modem.dat for Output */
  32.     Do
  33.     WriteLn(1,ModSet) Then                   /* write single var to file */
  34.     End
  35. Close(1)                                           /* close file 1 */
  36.  
  37. Exit
  38.  
  39. /* New Modem AT String */
  40.  
  41. YourSet:
  42.     Say 'Enter your AT code string as Modem.Help told you'
  43.     Say ''
  44.     parse pull MySet
  45.     ModSet = MySet
  46. return
  47.